home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 February / PCWorld_2007-02_cd.bin / domacnost a kancelar / avedesk / AveDesk13.exe / Installable Packages / GUID Generator.vbs < prev    next >
Text File  |  2005-02-16  |  273b  |  10 lines
  1. Dim TypeLib 'As Scriptlet.TypeLib
  2. Dim tg 'as GUID
  3. Dim createGUID 'as String
  4.  
  5. Set TypeLib = CreateObject("Scriptlet.TypeLib")
  6. tg = TypeLib.Guid
  7. createGuid = left(tg, len(tg)-3)
  8. createGuid = right(createGuid,len(createGuid)-3)
  9. Set TypeLib = Nothing
  10. Msgbox createGuid